home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / FART.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  10 lines
  1. 10 FORI=50000TO50022:READA:POKEI,A:NEXT
  2. 20 B=13:D=4:W=129
  3. 30 FORI=0TO24:POKE54272+I,0:NEXT
  4. 40 B=INT(RND(1)*15):D=INT(RND(1)*12):W=17:W=W+112*SGN(INT(RND(1)*4))
  5. 50 SD=54272+14:POKESD+10,15:POKESD+6,240:POKESD+4,W
  6. 60 FORI=0TOB:POKE2,(7-I)*5+85:SYS50000:FORK=1TOI*D:NEXT:NEXT
  7. 70 DATA120,162,0,160,15,136,208,253,232,142,15,212,228,2,208,243,169,0
  8. 80 DATA141,15,212,88,96
  9. 90 FORI=0TO1000:NEXT:GOTO20
  10.